Developer CD Series 1999 May: Tool Chest/Developer CD Series Tool Chest (Apple Computer)(May 1999).iso/Tool Chest/Development Kits/MPW etc/MPW-GM/MPW/Examples/PPCExamples/CPlusExamples/CPlusTESample/TEDocument.cp

Text File | 1998-12-03 | 31.8 KB | 1,067 lines | [TEXT/MPS ]

/*------------------------------------------------------------------------------
#
#    Apple Macintosh Developer Technical Support
#
#    MultiFinder-Aware Simple TextEdit Sample Application
#
#    CPlusTESample
#
#    TEDocument.cp    -    C++ source
#
#    Copyright © 1989 Apple Computer, Inc.
#    All rights reserved.
#
#    Versions:
#            1.10                     07/89
#            1.00                     04/89
#
#    Components:
#            CPlusTESample.make        July 9, 1989
#            TApplicationCommon.h    July 9, 1989
#            TApplication.h            July 9, 1989
#            TDocument.h                July 9, 1989
#            TECommon.h                July 9, 1989
#            TESample.h                July 9, 1989
#            TEDocument.h            July 9, 1989
#            TApplication.cp            July 9, 1989
#            TDocument.cp            July 9, 1989
#            TESample.cp                July 9, 1989
#            TEDocument.cp            July 9, 1989
#            TESampleGlue.a            July 9, 1989
#            TApplication.r            July 9, 1989
#            TESample.r                July 9, 1989
#
#    CPlusTESample is an example application that demonstrates
#    how to initialize the commonly used toolbox managers,
#    operate successfully under MultiFinder, handle desk
#    accessories and create, grow, and zoom windows. The
#    fundamental TextEdit toolbox calls and TextEdit autoscroll
#    are demonstrated. It also shows how to create and maintain
#    scrollbar controls.
#
#    This version of TESample has been substantially reworked in
#    C++ to show how a "typical" object oriented program could
#    be written. To this end, what was once a single source code
#    file has been restructured into a set of classes which
#    demonstrate the advantages of object-oriented programming.
#
------------------------------------------------------------------------------*/


/*
Segmentation strategy:

    This program has only one segment, since the issues
    surrounding segmentation within a class's methods have
    not been investigated yet. We DO unload the data
    initialization segment at startup time, which frees up
    some memory

SetPort strategy:

    Toolbox routines do not change the current port. In
    spite of this, in this program we use a strategy of
    calling SetPort whenever we want to draw or make calls
    which depend on the current port. This makes us less
    vulnerable to bugs in other software which might alter
    the current port (such as the bug (feature?) in many
    desk accessories which change the port on OpenDeskAcc).
    Hopefully, this also makes the routines from this
    program more self-contained, since they don't depend on
    the current port setting.

Clipboard strategy:

    This program does not maintain a private scrap.
    Whenever a cut, copy, or paste occurs, we import/export
    from the public scrap to TextEdit's scrap right away,
    using the TEToScrap and TEFromScrap routines. If we did
    use a private scrap, the import/export would be in the
    activate/deactivate event and suspend/resume event
    routines.
*/

// Mac Includes
#include <Types.h>
#include <Quickdraw.h>
#include <Fonts.h>
#include <Controls.h>
#include <Windows.h>
#include <TextEdit.h>
#include <Dialogs.h>
#include <Menus.h>
#include <Devices.h>
#include <Events.h>
#include <Scrap.h>
#include <TextUtils.h>
#include <MacMemory.h>
#include <SegLoad.h>
#include <Files.h>
#include <OSUtils.h>
#include <Traps.h>
#include <LowMem.h>

#include "TEDocument.h"
// we need resource definitions
#include "TECommon.h"

// #include "TESample.h"

extern "C"
{
    // prototypes for functions that don't belong to any one class
        pascal     TEClickLoopUPP GetOldClickLoop(void);
        pascal     void PascalClickLoop(void);
        void     CommonAction(ControlHandle control,short* amount);
        pascal     void VActionProc(ControlHandle control,short part);
        pascal     void HActionProc(ControlHandle control,short part);


    // ASMCLICKLOOP is written in Assembler for the 68K, since it needs to tweak
    // registers.  For the PowerPC, we can write this routine in C because
    // MixedMode gives us a C interface for this.

       pascal Boolean ASMCLICKLOOP (TEPtr pTE);

};

// kTextMargin is the number of pixels we leave blank at the edge of the window.
    const short kTextMargin = 2;

// kMaxDocWidth is an arbitrary number used to specify the width of the TERec's
// destination rectangle so that word wrap and horizontal scrolling can be
// demonstrated.
    const short    kMaxDocWidth = 576;

// kMinDocDim is used to limit the minimum dimension of a window when GrowWindow
// is called.
    const short    kMinDocDim = 64;

// kMaxTELength is an arbitrary number used to limit the length of text in the TERec
// so that various errors won't occur from too many characters being in the text.
    const short    kMaxTELength = 32000;

// kControlInvisible is used the same way to 'turn on' the control.
    const short kControlVisible = 0xFF;

// ScrollBarAdjust, GrowBoxAdjust, and ScrollBar width are used in calculating
// values for control positioning and sizing.
    const short kScrollbarAdjust = 15;
    const short kGrowboxAdjust = 15;
    const short kScrollbarWidth = 16;

// kTESlop provides some extra security when pre-flighting edit commands.
    const short kTESlop = 1024;

// kScrollTweek compensates for off-by-one requirements of the scrollbars
// to have borders coincide with the growbox.
    const short kScrollTweek = 2;

// kCrChar is used to match with a carriage return when calculating the
// number of lines in the TextEdit record. kDelChar is used to check for
// delete in keyDowns.
    const short kCrChar = 13;
    const short kDelChar = 8;

// Use universal procedure pointers that are compatible with both 68K and PowerPC.

    ControlActionUPP VActionDesc;
    ControlActionUPP HActionDesc;
    TEClickLoopUPP   TEClickLoopDesc;
    Boolean             inited = false;


/***********************************************************************/
//
// TEDocument class declarations
//
/***********************************************************************/

//-----------------------------------------------------------------------
// TEDocument::TEDocument -    notice that we pass the resID parameter up to our
//                            base class, which actually creates the window for us.
//                            If you modify this so that it doesn't create a
//                            window, be sure to take that into account in the
//                            application class so that it doesn't believe an
//                            error occurred (as version 1.20 of TApplication
//                            would).
//
    TEDocument::TEDocument( short resID )    : TDocument( resID )
    {
        Boolean good;
        Rect destRect, viewRect;

        // initialize routine desciptors once
        if (!inited)
        {
            VActionDesc = NewControlActionProc (VActionProc);
            HActionDesc = NewControlActionProc (HActionProc);
            TEClickLoopDesc = NewTEClickLoopProc (ASMCLICKLOOP);
            inited = true;
        }

        good = false;
        SetPort( fDocWindow );
        GetTERect( &viewRect );
        destRect = viewRect;
        destRect.right = destRect.left + kMaxDocWidth;
        fDocTE = TENew( &destRect, &viewRect );

        good = fDocTE != nil;    // if TENew succeeded, we have a good document

        // if it's a valid document, initialize the text edit fields
        // and try to create a vertical scroll control
            if ( good )
            {
                // set up TE record
                    AdjustViewRect();
                    TEAutoView( true, fDocTE );
                    fDocClick = (*fDocTE)->clickLoop;
                    (*fDocTE)->clickLoop =  TEClickLoopDesc;

                // get vertical scrollbar
                    fDocVScroll = GetNewControl( rVScroll, fDocWindow );
                    good = ( fDocVScroll != nil );
            }

        // if the vertical scroll control has been properly created
        // try to create a horizontal one. otherwise, don't bother
            if ( good )
            {
                fDocHScroll = GetNewControl( rHScroll, fDocWindow );
                good = ( fDocHScroll != nil );
            }

        // If both horizontal and vertical controls have been created
        // then we can go ahead and use this new document, so show it.
        // Otherwise, let the user know that we have a problem.
            if ( good )
            {                                                        // adjust & draw the controls, draw the window
                SetWindowDoc( fDocWindow, this );
                AdjustScrollValues( true );
                ShowWindow( fDocWindow );
            }
            else
                AlertUser( kTEDocErrStrings, eNoWindow );            // tell user we failed

    } /* TEDocument (constructor) */


//-----------------------------------------------------------------------
// TEDocument::~TEDocument -    At this point, if there was a document associated
//                                with a window, you could do any document saving
//                                processing if it is 'dirty'. DoCloseWindow would
//                                return true if the window actually closed, i.e.,
//                                the user didn’t cancel from a save dialog. This
//                                result is handy whenthe user quits an application,
//                                but then cancels the save of a documentassociated
//                                with a window.
//
    TEDocument::~TEDocument(void)
    {
        HideWindow( fDocWindow );

        // get rid of any extra storage that was used for the window
            if ( fDocTE != nil )
                TEDispose(fDocTE);                                    // dispose the TEHandle if we got far enough to make one

            if ( fDocVScroll != nil )                                // don't forget about the control storage
                DisposeControl(fDocVScroll);

            if ( fDocHScroll != nil )
                DisposeControl(fDocHScroll);

        // base class destructor will dispose of window
    } /* TEDocument (destructor) */


//-----------------------------------------------------------------------
// TEDocument::DoZoom -
//
    void TEDocument::DoZoom( short partCode )
    {
        Rect tRect;

        tRect = fDocWindow->portRect;
        EraseRect( &tRect );
        ZoomWindow( fDocWindow, partCode, fDocWindow == FrontWindow());
        AdjustScrollbars(true);            // adjust, redraw anyway
        AdjustTE();
        InvalRect( &tRect );            // invalidate the whole content

        // the scrollbars were taken care of by AdjustScrollbars, so validate ’em
            tRect = (*fDocVScroll)->contrlRect;
            ValidRect( &tRect );
            tRect = (*fDocHScroll)->contrlRect;
            ValidRect( &tRect );

    } /* TEDocument::DoZoom */


//-----------------------------------------------------------------------
// TEDocument::DoGrow -    Called when a mouseDown occurs in the grow box of
//                        an active window.
//
    void TEDocument::DoGrow( EventRecord* theEvent )
    {
        long growResult;
        Rect tRect, tRect2;

        tRect = qd.screenBits.bounds;
        tRect.left = kMinDocDim;
        tRect.top = kMinDocDim;
        growResult = GrowWindow(fDocWindow, theEvent->where, &tRect);

        // see if it really changed size
            if ( growResult != 0 )
            {
                tRect = (*fDocTE)->viewRect;
                SizeWindow(fDocWindow, LoWrd(growResult), HiWrd(growResult), true);
                AdjustScrollbars(true);
                AdjustTE();

                // calculate & validate the region that hasn’t changed so it won’t get redrawn
                // Note: we copy rectangles so that we don't take address of object fields.
                    tRect2 = (*fDocTE)->viewRect;
                    (void) SectRect(&tRect, &tRect2, &tRect);
                    tRect2 = fDocWindow->portRect; InvalRect(&tRect2);
                    ValidRect(&tRect);
                    tRect2 = (*fDocVScroll)->contrlRect; ValidRect(&tRect2);
                    tRect2 = (*fDocHScroll)->contrlRect; ValidRect(&tRect2);
            }
    } /* TEDocument::DoGrow */


//-----------------------------------------------------------------------
// TEDocument::DoContent -
//
    void TEDocument::DoContent( EventRecord* theEvent )
    {
        Point mouse;
        ControlHandle control;
        short part, value;
        Boolean shiftDown;
        Rect teRect;

        SetPort( fDocWindow );
        mouse = theEvent->where;                            // get the click position
        GlobalToLocal( &mouse );
        GetTERect( &teRect );
        if ( PtInRect( mouse, &teRect ))
        {
            /* see if we need to extend the selection */
                shiftDown = ( theEvent->modifiers & shiftKey ) != 0;    /* extend if Shift is down */
                TEClick( mouse, shiftDown, fDocTE );
        }
        else
        {
            part = FindControl( mouse, fDocWindow, &control );
            switch ( part )
            {
                case 0:            break;        // do nothing if not in a control

                case kControlIndicatorPart:
                                value = GetControlValue( control );
                                part = TrackControl( control, mouse, nil );
                                if ( part != 0 )
                                {
                                    value -= GetControlValue(control);

                                    // value now has CHANGE in value; if value changed, scroll
                                        if ( value != 0 )
                                            if ( control == fDocVScroll )
                                                TEScroll(0, value * (*fDocTE)->lineHeight, fDocTE);
                                            else
                                                TEScroll(value, 0, fDocTE);
                                }
                                break;

                default:        if ( control == fDocVScroll )                                        // they clicked in an arrow, so track & scroll
                                    value = TrackControl( control, mouse,  VActionDesc );
                                else
                                    value = TrackControl( control, mouse,  HActionDesc );
                                break;
            }
        }
    } /* TEDocument::DoContent */


//-----------------------------------------------------------------------
// TEDocument::DoKeyDown -
//
    void TEDocument::DoKeyDown( EventRecord* theEvent )
    {
        char key;

        if ( theEvent->modifiers & cmdKey )                            // don't process command characters
            return;
        key = (char) ( theEvent->message & charCodeMask );

        // we have a char. for our window; see if we are still below TextEdit’s
        // limit for the number of characters
            if (( key == kDelChar ) || ((*fDocTE)->teLength - ((*fDocTE)->selEnd - (*fDocTE)->selStart ) + 1 < kMaxTELength ))
            {
                TEKey(key, fDocTE);
                AdjustScrollbars(false);
                AdjustTE();
            }
            else
                AlertUser( kTEDocErrStrings, eExceedChar );

    } /* TEDocument::DoKeyDown */


//-----------------------------------------------------------------------
// TEDocument::DoActivate -
//
    void TEDocument::DoActivate( Boolean becomingActive )
    {
        if ( becomingActive )
        {
            RgnHandle    tempRgn;
            RgnHandle    clipRgn;
            Rect        growRect;
            Rect        tRect;

            // since we don’t want TEActivate to draw a selection in an area where
            // we’re going to erase and redraw, we’ll clip out the update region
            // before calling it.
                tempRgn = NewRgn();
                clipRgn = NewRgn();

            // save old update region
                CopyRgn(((WindowPeek) fDocWindow)->updateRgn, tempRgn );

            // put it in local coords
                OffsetRgn( tempRgn, fDocWindow->portBits.bounds.left, fDocWindow->portBits.bounds.top );
                GetClip( clipRgn );

            // subtract updateRgn from clipRgn
                DiffRgn( clipRgn, tempRgn, tempRgn );

            // make it the new clipRgn
                SetClip( tempRgn );
                TEActivate( fDocTE );

            // restore the full-blown clipRgn
                SetClip( clipRgn );

            // get rid of temp regions
                DisposeRgn( tempRgn );
                DisposeRgn( clipRgn );

            // the controls must be redrawn on activation
                (*fDocVScroll)->contrlVis = kControlVisible;
                (*fDocHScroll)->contrlVis = kControlVisible;

            // copy rectangles to avoid unsafe object field references!
                tRect = (*fDocVScroll)->contrlRect; InvalRect( &tRect );
                tRect = (*fDocHScroll)->contrlRect; InvalRect( &tRect );

            // the growbox needs to be redrawn on activation:
                growRect = fDocWindow->portRect;

            // adjust for the scrollbars
                growRect.top = growRect.bottom - kScrollbarAdjust;
                growRect.left = growRect.right - kScrollbarAdjust;
                InvalRect( &growRect );
        }
        else
        {
            TEDeactivate(fDocTE);

            // the controls must be hidden on deactivation
                HideControl(fDocVScroll);
                HideControl(fDocHScroll);

            // we draw grow icon immediately, since we deactivate controls
            // immediately, and the update delay looks funny
                DrawGrowIcon(fDocWindow);
        }

    } /* TEDocument::DoActivate */


//-----------------------------------------------------------------------
// TEDocument::DoUpdate -
//
    void TEDocument::DoUpdate(void)
    {
        BeginUpdate( fDocWindow );                // this sets up the visRgn
        if ( ! EmptyRgn( fDocWindow->visRgn ))    // draw if updating needs to be done
        {
            DrawWindow();
        }
        EndUpdate( fDocWindow );

    } /* TEDocument::DoUpdate */


//-----------------------------------------------------------------------
// TEDocument::CalcIdle -    calculate how much idle time we need
//
    unsigned long TEDocument::CalcIdle(void)
    {
        if ( HaveSelection())
            return GetCaretTime();                // interval needed to blink insertion caret
        else
            return kMaxSleepTime;                // if we don't have a selection, we don't need to idle

    } /* TEDocument::CalcIdle */


//-----------------------------------------------------------------------
// TEDocument::DoIdle -    This is called whenever we get a null event et al.
//                         It takes care of necessary periodic actions. For
//                         this program, it calls TEIdle.
//
    void TEDocument::DoIdle( void )
    {
        TEIdle( fDocTE );

    } /* TEDocument::DoIdle */


//-----------------------------------------------------------------------
// TEDocument::DrawWindow -    Draw the contents of an application window.
//
    void TEDocument::DrawWindow(void)
    {
        Rect tRect;

        SetPort( fDocWindow );
        tRect = fDocWindow->portRect;
        EraseRect( &tRect );
        TEUpdate( &tRect, fDocTE );
        DrawControls( fDocWindow );
        DrawGrowIcon( fDocWindow );

    } /* TEDocument::DrawWindow */


//-----------------------------------------------------------------------
// TEDocument::GetTERect -    Return a rectangle that is inset from the portRect
//                             by the size of the scrollbars and a little extra margin.
//
    void TEDocument::GetTERect( Rect* teRect )
    {
        *teRect = fDocWindow->portRect;
        InsetRect( teRect, kTextMargin, kTextMargin );            // adjust for margin
        teRect->bottom = teRect->bottom - kScrollbarAdjust;        // and for the scrollbars
        teRect->right = teRect->right - kScrollbarAdjust;

    } /* TEDocument::GetTERect */


//-----------------------------------------------------------------------
// TEDocument::GetVisTERgn -    setup a region which contains the visible text
//
    void TEDocument::GetVisTERgn(RgnHandle rgn)
    {
        Rect teRect;

        teRect = (*fDocTE)->viewRect;                            // get a local copy of viewRect
        SetPort(fDocWindow);                                    // make sure we have right port
        LocalToGlobal(&TopLeft(teRect));
        LocalToGlobal(&BotRight(teRect));
        RectRgn(rgn, &teRect);

        // we temporarily change the port’s origin to “globalfy” the visRgn
            SetOrigin( -( fDocWindow->portBits.bounds.left ), -( fDocWindow->portBits.bounds.top ));
            SectRgn(rgn, fDocWindow->visRgn, rgn );
            SetOrigin( 0, 0 );

    } /* TEDocument::GetVisTERgn */


//-----------------------------------------------------------------------
// TEDocument::HaveSelection -    Return boolean value indicating that there is
//                                 or is not a selection in the document
//
    Boolean TEDocument::HaveSelection()
    {
        if ((*fDocTE)->selStart < (*fDocTE)->selEnd )
            return true;
        else
            return false;

    } /* TEDocument::HaveSelection */


//-----------------------------------------------------------------------
// TEDocument::AdjustViewRect -    Update the TERec's view rect so that it is the
//                                 greatest multiple ofthe line Height that still
//                                fits in the old viewRect.
//
    void TEDocument::AdjustViewRect(void)
    {
        TEPtr te;

        te = *fDocTE;
        te->viewRect.bottom = (((te->viewRect.bottom - te->viewRect.top) / te->lineHeight)
                                * te->lineHeight) + te->viewRect.top;

    } /* TEDocument::AdjustViewRect */


//-----------------------------------------------------------------------
// TEDocument::AdjustTE -    Scroll the TERec around to match up to the potentially
//                             updated scrollbar values. This is really useful when
//                             the window has been resized such that the scrollbars
//                            became inactive but the TERec was already scrolled.
//
    void TEDocument::AdjustTE( void )
    {
        TEPtr te;

        te = *fDocTE;
        TEScroll(( te->viewRect.left - te->destRect.left ) - GetControlValue( fDocHScroll ),
                 ( te->viewRect.top - te->destRect.top ) -  (GetControlValue( fDocVScroll ) * te->lineHeight ),
                 fDocTE );

    } /* TEDocument::AdjustTE */


//-----------------------------------------------------------------------
// TEDocument::AdjustScrollSizes -    Re-calculate the position and size of the
//                                     viewRect and the scrollbars. kScrollTweek
//                                    compensates for off-by-one requirements of
//                                     the scrollbars to have borders coincide
//                                    with the growbox.
//
    void TEDocument::AdjustScrollSizes(void)
    {
        Rect teRect;

        GetTERect( &teRect );
        (*fDocTE)->viewRect = teRect;
        AdjustViewRect();
        MoveControl( fDocVScroll, fDocWindow->portRect.right - kScrollbarAdjust, -1 );
        SizeControl( fDocVScroll, kScrollbarWidth,
                     fDocWindow->portRect.bottom - fDocWindow->portRect.top - kGrowboxAdjust + kScrollTweek );
        MoveControl(fDocHScroll, -1, fDocWindow->portRect.bottom - kScrollbarAdjust);
        SizeControl(fDocHScroll,
                    fDocWindow->portRect.right - fDocWindow->portRect.left - kGrowboxAdjust + kScrollTweek,
                    kScrollbarWidth);

    } /* TEDocument::AdjustScrollSizes */


//-----------------------------------------------------------------------
// TEDocument::AdjustScrollbars -    Turn off the controls by jamming a zero into
//                                    their contrlVis fields (HideControl erases them
//                                    and we don't want that). If the controls are to
//                                    be resized as well, call the procedure to do that,
//                                    then call the procedure to adjust the maximum and
//                                    current values. Finally re-enable the controls by
//                                    jamming a $FF in their contrlVis fields (ShowControl
//                                    re-draws the control, which may not be necessary).
//
    void TEDocument::AdjustScrollbars( Boolean needsResize )
    {
        // First, turn visibility of scrollbars off so we won’t get unwanted redrawing
            (*fDocVScroll)->contrlVis = 0;
            (*fDocHScroll)->contrlVis = 0;
            if ( needsResize )
                AdjustScrollSizes();
            AdjustScrollValues( needsResize );

        // Now, restore visibility in case we never had to draw during adjustment
            (*fDocVScroll)->contrlVis = 0xff;
            (*fDocHScroll)->contrlVis = 0xff;

    } /* TEDocument::AdjustScrollbars */

// Calculate the new control maximum value and current value, whether it is the horizontal or

//-----------------------------------------------------------------------
// TEDocument::AdjustHV -    Turn off the controls by jamming a zero into vertical
//                            scrollbar. The vertical max is calculated by comparing
//                            the number of lines to the vertical size of the viewRect.
//                            The horizontal max is calculated by comparing the
//                            maximum document width to the width of the viewRect.
//                            The current values are set by comparing the offset
//                            between the view and destination rects. If necessary,
//                            redraw the control by calling ShowControl.
//
    void TEDocument::AdjustHV( Boolean isVert, Boolean mustRedraw )
    {
            short value, lines, max;
            short oldValue, oldMax;
            TEPtr te;
            ControlHandle control;

            if (isVert)
                control = fDocVScroll;
            else
                control = fDocHScroll;
            oldValue = GetControlValue( control );
            oldMax = GetControlMaximum( control );
            te = *fDocTE;                            // point to TERec for convenience
            if ( isVert )
            {
                lines = te->nLines;
                // since nLines isn’t right if the last character is a return, check for that case
                    if ( *(*te->hText + te->teLength - 1) == kCrChar )
                        lines += 1;
                    max = lines - (( te->viewRect.bottom - te->viewRect.top ) / te->lineHeight);
            }
            else
                max = kMaxDocWidth - ( te->viewRect.right - te->viewRect.left );

            if ( max < 0 )
                max = 0;
            SetControlMaximum( control, max );

            // Must deref. after SetControlMaximum since, technically, it could draw and therefore move
            // memory. This is why we don’t just do it once at the beginning.
                te = *fDocTE;
                if ( isVert )
                  value = ( te->viewRect.top - te->destRect.top ) / te->lineHeight;
                else value = te->viewRect.left - te->destRect.left;

                if ( value < 0 )
                    value = 0;
                else
                    if ( value >  max )
                        value = max;

                SetControlValue( control, value );

            // now redraw the control if asked to or if a setting changed
                if ( mustRedraw || ( max != oldMax ) || ( value != oldValue ))
                    ShowControl( control );

    } /* TEDocument::AdjustHV */


//-----------------------------------------------------------------------
// TEDocument::AdjustScrollValues -    Simply call the common adjust routine for
//                                    the vertical and horizontal scrollbars.
//
    void TEDocument::AdjustScrollValues( Boolean mustRedraw )
    {
        AdjustHV( true, mustRedraw );
        AdjustHV( false, mustRedraw );

    } /* TEDocument::AdjustScrollValues */


//-----------------------------------------------------------------------
// TEDocument::GetClickLoop -
//
    TEClickLoopUPP TEDocument::GetClickLoop( void )
    {
        return fDocClick;

    } /* TEDocument::GetClickLoop */


//-----------------------------------------------------------------------
// TEDocument::GetTEHandle -
//
    TEHandle TEDocument::GetTEHandle( void )
    {
        return fDocTE;

    } /* TEDocument::GetTEHandle */


//-----------------------------------------------------------------------
// TEDocument::DoCut -
//
    void TEDocument::DoCut( void )
    {
        long total, contig;

        if ( ZeroScrap() == noErr )
        {
            PurgeSpace(&total, &contig);
            if ((*fDocTE)->selEnd - (*fDocTE)->selStart + kTESlop > contig )
                AlertUser( kTEDocErrStrings,eNoSpaceCut );
            else
            {
                TECut( fDocTE );
                if ( TEToScrap() != noErr )
                {
                    AlertUser( kTEDocErrStrings, eNoCut );
                    (void) ZeroScrap();
                }
            }
        }
        AdjustScrollbars(false);
        AdjustTE();

    } /* TEDocument::DoCut */


//-----------------------------------------------------------------------
// TEDocument::DoCopy -
//
    void TEDocument::DoCopy( void )
    {
        if ( ZeroScrap() == noErr )
        {
            TECopy(fDocTE);                        // after copying, export the TE scrap
            if ( TEToScrap() != noErr )
            {
                AlertUser(kTEDocErrStrings,eNoCopy);
                ZeroScrap();
            }
        }
        AdjustScrollbars(false);
        AdjustTE();

    } /* TEDocument::DoCopy */


//-----------------------------------------------------------------------
// TEDocument::DoPaste -
//
    void TEDocument::DoPaste( void )
    {
        Handle aHandle;
        long oldSize, newSize;
        OSErr saveErr;

        if ( TEFromScrap() == noErr )
        {
            if ( TEGetScrapLength() + ((*fDocTE)->teLength - ((*fDocTE)->selEnd - (*fDocTE)->selStart )) > kMaxTELength )
                AlertUser( kTEDocErrStrings, eExceedPaste );
            else
            {
                aHandle = (Handle) TEGetText( fDocTE );
                oldSize = GetHandleSize( aHandle );
                newSize = oldSize + TEGetScrapLength() + kTESlop;
                SetHandleSize( aHandle, newSize );
                saveErr = MemError();
                SetHandleSize( aHandle, oldSize );

                if (saveErr != noErr)
                    AlertUser( kTEDocErrStrings, eNoSpacePaste );
                else
                    TEPaste(fDocTE);
            }
        }
        else
            AlertUser( kTEDocErrStrings, eNoPaste );

        AdjustScrollbars( false );
        AdjustTE();

    } /* TEDocument::DoPaste */


//-----------------------------------------------------------------------
// TEDocument::DoClear -
//
    void TEDocument::DoClear( void )
    {
        TEDelete( fDocTE );
        AdjustScrollbars( false );
        AdjustTE();

    } /* TEDocument::DoClear */



/***********************************************************************/
//
// Global declarations
//            Routines used by this class, which don't belong to the class since we use
//            them as toolbox filter routines, and you cannot pass class methods as ProcPtrs.
//
/***********************************************************************/


//-----------------------------------------------------------------------
// CommonAction -    Common algorithm for pinning the value of a control.
//                    It returns the actual amount the value of the control
//                    changed.
//
    void CommonAction( ControlHandle control, short* amount )
    {
        short        value, max;

        value = GetControlValue( control );
        max = GetControlMaximum( control );
        *amount = value - *amount;

        if ( *amount <= 0 )
            *amount = 0;
        else
            if ( *amount >= max )
                *amount = max;

        SetControlValue(control, *amount);
        *amount = value - *amount;

    } /* CommonAction */


//-----------------------------------------------------------------------
// VActionProc -    Determines how much to change the value of the vertical
//                     scrollbar by and how much to scroll the TE record.
//
    pascal void VActionProc( ControlHandle control, short part )
    {
        short        amount;
        WindowPtr    window;
        TEPtr        te;
        TEDocument* doc;

        if ( part != 0 )
        {
            window = (*control)->contrlOwner;
            doc = GetWindowDoc( window );
            te = *(doc->GetTEHandle() );
            switch ( part )
            {
                case kControlUpButtonPart:                    // one line
                case kControlDownButtonPart:
                                        amount = 1;
                                        break;

                case kControlPageUpPart:                    // one page
                case kControlPageDownPart:
                                        amount = (te->viewRect.bottom - te->viewRect.top) / te->lineHeight;
                                        break;
            }

            if (( part == kControlDownButtonPart ) || ( part == kControlPageDownPart ))
                amount = -amount;                            // reverse direction for a downer
            CommonAction( control, &amount );

            if ( amount != 0 )
                TEScroll( 0, amount * te->lineHeight, doc->GetTEHandle());
        }
    } /* VActionProc */


//-----------------------------------------------------------------------
// HActionProc -    Determines how much to change the value of the horizontal
//                     scrollbar by and how much to scroll the TE record.
//
    pascal void HActionProc( ControlHandle control, short part )
    {
        short        amount;
        WindowPtr    window;
        TEPtr        te;
        TEDocument* doc;

        if ( part != 0 )
        {
            window = (*control)->contrlOwner;
            doc = GetWindowDoc( window );
            te = *(doc->GetTEHandle());
            switch ( part )
            {
                case kControlUpButtonPart:                    // a few pixels
                case kControlDownButtonPart:
                                        amount = 4;
                                        break;

                case kControlPageUpPart:                    // a page
                case kControlPageDownPart:
                                        amount = te->viewRect.right - te->viewRect.left;
                                        break;
            }

            if (( part == kControlDownButtonPart ) || ( part == kControlPageDownPart ))
                amount = -amount;                            // reverse direction
            CommonAction( control, &amount );

            if ( amount != 0 )
                TEScroll( amount, 0, doc->GetTEHandle());
        }
    } /* HActionProc */


//-----------------------------------------------------------------------
// PascalClickLoop -Gets called from our assembly language routine (on the
//                  68K, C on the PowerPC), ASMCLICKLOOP,
//                    which is in turn called by the TEClick toolbox routine.
//                    Saves the windows clip region, sets it to the portRect,
//                    adjusts the scrollbar values to match the TE scroll amount,
//                    then restores the clip region.
//
    pascal void PascalClickLoop(void)
    {
        RgnHandle    region;
        WindowPtr wind;
        TEDocument* doc;

        wind = FrontWindow();
        doc = GetWindowDoc( wind );
        region = NewRgn();
        GetClip( region );                        // save clip
        ClipRect( &wind->portRect );
        doc->AdjustScrollValues( false );
        SetClip( region );                        // restore clip
        DisposeRgn( region );

    } /* PascalClickLoop */


//-----------------------------------------------------------------------
// GetOldClickLoop -Gets called from our assembly language routine (on the
//                  68K, C on the PowerPC), ASMCLICKLOOP,
//                    which is in turn called by the TEClick toolbox routine. It
//                    returns the address of the default ClickLoop routine that was
//                    put into the TERec by TEAutoView to ASMCLICKLOOP so that it
//                    can call it.
//
   pascal TEClickLoopUPP GetOldClickLoop(void)
    {
        TEDocument* doc;

        doc = GetWindowDoc( FrontWindow());
        if (doc == nil)
            return nil;

        return doc->GetClickLoop();

    } /* GetOldClickLoop */


//-----------------------------------------------------------------------
// AlertUser -
//
    void AlertUser( short errResID, short errCode )
    {
        Str255 message;

        SetCursor( &qd.arrow );
        GetIndString( message, errResID, errCode );
        ParamText( message,(ConstStr255Param) "\p", (ConstStr255Param)"\p", (ConstStr255Param)"\p" );
        (void) Alert( rUserAlert,  nil );

    } /* AlertUser */

#if GENERATINGCFM
//------------------------------------------------------------------------
// ASMCLICKLOOP - On the 68K we have to have an assembler routine do this
//               because registers must be mucked with.  On the PowerPC
//               we have MixedMode which gives us a C interface to a
//               TEClickLoopProc ();
//
//               Our job is to 1) Call the old, default click loop routine
//               that scrolls text. 2) Call our own routine that handles
//               tracking the scroll bars to follow along.
//
     pascal Boolean ASMCLICKLOOP (TEPtr pTE)
      {
         TEClickLoopUPP Old_ClickLoopRoutine;

         Old_ClickLoopRoutine = GetOldClickLoop ();
         CallTEClickLoopProc (Old_ClickLoopRoutine, pTE);

         CallUniversalProc((UniversalProcPtr)(Old_ClickLoopRoutine), uppTEClickLoopProcInfo, pTE);

         PascalClickLoop ();

         return(true);

      } /* ASMCLICKLOOP */

#endif